// HSP 3.0a

#uselib "wininet.dll"
#func InternetGetConnectedState "InternetGetConnectedState" int,int
#func InternetGetConnectedStateEx "InternetGetConnectedStateExA" int,int,int,int

 InternetGetConnectedState 0,0
 if stat=1 {
  sdim ConnectName,64
  InternetGetConnectedStateEx 0,varptr(ConnectName),64,0
  mes ConnectName
 }else{
  mes "接続されてない"
 }